5 D=PEEK(186):IFD<8THEND=8
10 GOSUB41000
15 P$="QUIZ.PKD"
20 PRINT"[144]LOADP$,D":PRINT"RUN"
60 POKE631,13:POKE632,13:POKE198,2:END
10999 END
41000 POKE53280,0:POKE53281,0:POKE53272,22:PRINT"[147]"
41002 POKE214,14:PRINT
41004 PRINTTAB(1)"[155]                                     "
41005 FORX=1TO6
41006 PRINTTAB(1)"[152]                                     "
41007 NEXT
41013 PRINTTAB(1)"[151]                                     "
41015 GOSUB60008:N2$="MANNERS "+N$:POKE214,16:PRINT
41016 N1$="":FORX=1TOLEN(N2$):N1$=N1$+CHR$(128+ASC(MID$(N2$,X))):NEXT
41019 PRINTTAB(19-LEN(N2$)/2)"[152]"N1$
41020 FORX=2TO4:READA$:POKE214,15+X:PRINT
41022 PRINTTAB(19-LEN(A$)/2)"[152]"A$
41024 NEXT
41030 T=TI+60
41031 IFT>TITHEN41031
41032 PRINT"":RETURN
41051 DATA"BY [196]AVE [205]OORMAN
41052 [131]"(C) 2004 BY MID$ & ASC (null)UBLISHING, RIGHT$NC.
41053 DATA"WWW.ELOADSTAR.COM
60000 D[178][194](186):[141]60008:N$[178]"MANNERS "[170]N$
60001 [159]1,D,15,"I0":[152]1,"S0:B."[170]N$:[160]1:[148]"B."[170]N$,D:[128]
60008 N$[178]"QUIZ"
60009 [142]